home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Utilities Experience
/
The Utilities Experience - Volume 1.iso
/
software
/
graphics
/
n-z
/
raystorexa
/
arexx
/
checker.ray
< prev
next >
Wrap
Text File
|
1995-10-21
|
1KB
|
61 lines
/***************
* NAME: checker.ray
* VERSION: 1.0 08.10.1995
* DESCRIPTION: Checker texture test
* AUTHORS: Andreas Heumann
* BUGS: none
* TO DO: none
* HISTORY:
* DATE NAME COMMENT
* 08.10.95 ah initial release
***************/
SIGNAL ON ERROR
OPTIONS RESULTS
IF ~show('P','RAYSTORM') THEN DO
address COMMAND 'run >NIL: <NIL: /RayStorm'
address COMMAND WaitForPort RAYSTORM
END
address RAYSTORM
'TEXTUREPATH /textures'
'SETSCREEN 160 128'
'SETCAMERA <5,10,10> <0,0,0> <0,1,0> 25 20'
'SETWORLD [0,0,150]'
'POINTLIGHT <10,20,20>'
'NEWSURFACE test'
'SPECULAR [0,0,0]'
'IMTEXTURE checker.itx <0,0,0> <0,0,0> <.5,.5,.5>'
'TRIANGLE test <-1,-1,-1> <1,-1,-1> <1,1,-1>'
'TRIANGLE test <-1,-1,-1> <-1,1,-1> <1,1,-1>'
'TRIANGLE test <-1,-1,-1> <-1,-1,1> <-1,1,1>'
'TRIANGLE test <-1,-1,-1> <-1,1,-1> <-1,1,1>'
'TRIANGLE test <1,-1,-1> <1,-1,1> <1,1,1>'
'TRIANGLE test <1,-1,-1> <1,1,-1> <1,1,1>'
'TRIANGLE test <1,-1,1> <-1,-1,1> <-1,1,1>'
'TRIANGLE test <1,-1,1> <1,1,1> <-1,1,1>'
'TRIANGLE test <-1,1,-1> <1,1,-1> <1,1,1>'
'TRIANGLE test <-1,1,-1> <-1,1,1> <1,1,1>'
'TRIANGLE test <-1,-1,-1> <1,-1,-1> <1,-1,1>'
'TRIANGLE test <-1,-1,-1> <-1,-1,1> <1,-1,1>'
'STARTRENDER QUICK'
'SAVEPIC checker.iff'
CLEANUP
exit 0
error:
say "Error" rc "in line" sigl ":"
GETERRORSTR rc
say result
exit 0